! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
! 
! Utility Data Module File
! 
! Generated by KPP-2.2.3 symbolic chemistry Kinetics PreProcessor
!       (http://www.cs.vt.edu/~asandu/Software/KPP)
! KPP is distributed under GPL, the general public licence
!       (http://www.gnu.org/copyleft/gpl.html)
! (C) 1995-1997, V. Damian & A. Sandu, CGRER, Univ. Iowa
! (C) 1997-2005, A. Sandu, Michigan Tech, Virginia Tech
!     With important contributions from:
!        M. Damian, Villanova University, USA
!        R. Sander, Max-Planck Institute for Chemistry, Mainz, Germany
! 
! File                 : aromatics_kpp_Monitor.f90
! Time                 : Tue Mar 31 13:05:38 2020
! Working directory    : /n/home08/kbates/Aromatics/GC_NOx_recycle_chamber
! Equation file        : aromatics_kpp.kpp
! Output root filename : aromatics_kpp
! 
! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~



MODULE aromatics_kpp_Monitor


  CHARACTER(LEN=15), PARAMETER, DIMENSION(90) :: SPC_NAMES_0 = (/ &
     'IMAE           ','LVOC           ','CO2            ', &
     'DHDN           ','ISN1OG         ','LBRO2H         ', &
     'LBRO2N         ','LISOPOH        ','LISOPNO3       ', &
     'LTRO2H         ','LTRO2N         ','LXRO2H         ', &
     'LXRO2N         ','PYAC           ','RCOOH          ', &
     'LBENZ          ','LTOLU          ','LXYLE          ', &
     'PGLYX          ','PCH2O          ','PMGLY          ', &
     'PHCOOH         ','PACTA          ','O1D            ', &
     'CH4m           ','BENZ           ','C3H8           ', &
     'DHDC           ','N2O5           ','PMNN           ', &
     'PPN            ','TOLU           ','HNO2           ', &
     'IEPOXD         ','CH4            ','COm            ', &
     'IEPOXA         ','IEPOXB         ','ALK4           ', &
     'C2H6           ','MAP            ','MOHm           ', &
     'IMAO3          ','MPN            ','XYLE           ', &
     'MPNm           ','MP             ','RA3P           ', &
     'RB3P           ','HNO4           ','MPm            ', &
     'ETP            ','H2             ','BRO2           ', &
     'TRO2           ','EOH            ','PAN            ', &
     'RP             ','O              ','PP             ', &
     'PRPN           ','H2O2           ','XRO2           ', &
     'ATOOH          ','HPALD          ','DHPCARP        ', &
     'HPC52O2        ','MRP            ','HC187          ', &
     'RIPB           ','HCOOH          ','VRP            ', &
     'IAP            ','MOBA           ','DHMOB          ', &
     'RIPA           ','RIPD           ','R4P            ', &
     'ISNP           ','CH2Om          ','MAOP           ', &
     'ETHLN          ','MVKOO          ','INPN           ', &
     'NPMN           ','GAOO           ','ACET           ', &
     'CH3CHOO        ','ROH            ','MGLYOO         ' /)
  CHARACTER(LEN=15), PARAMETER, DIMENSION(66) :: SPC_NAMES_1 = (/ &
     'MOBAOO         ','DIBOO          ','IPMN           ', &
     'MGLOO          ','MACRNO2        ','MO2m           ', &
     'MACROO         ','ISOPNB         ','ACTA           ', &
     'CH2OO          ','ISOP           ','PRPE           ', &
     'HNO3           ','A3O2           ','MVKN           ', &
     'ISNOHOO        ','IEPOXOO        ','ISNOOB         ', &
     'MOH            ','B3O2           ','ATO2           ', &
     'GLYX           ','ISOPNDO2       ','PO2            ', &
     'PRN1           ','MACRN          ','ISNOOA         ', &
     'PROPNN         ','MAN2           ','ISOPNBO2       ', &
     'GLYC           ','MAOPO2         ','ETO2           ', &
     'KO2            ','VRO2           ','ISOPND         ', &
     'RCO3           ','R4N1           ','HC5OO          ', &
     'CH2O           ','NMAO3          ','ISN1           ', &
     'ALD2           ','MGLY           ','MRO2           ', &
     'HC5            ','RIO2           ','HAC            ', &
     'R4O2           ','INO2           ','R4N2           ', &
     'MACR           ','MVK            ','MEK            ', &
     'NO3            ','CO             ','NO             ', &
     'O3             ','NO2            ','OH             ', &
     'RCHO           ','MO2            ','HO2            ', &
     'MCO3           ','H2O            ','O2             ' /)
  CHARACTER(LEN=15), PARAMETER, DIMENSION(156) :: SPC_NAMES = (/&
    SPC_NAMES_0, SPC_NAMES_1 /)

  INTEGER, PARAMETER, DIMENSION(156) :: LOOKAT = (/ &
       1,  2,  3,  4,  5,  6,  7,  8,  9, 10, 11, 12, &
      13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, &
      25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, &
      37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, &
      49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, &
      61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, &
      73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, &
      85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, &
      97, 98, 99,100,101,102,103,104,105,106,107,108, &
     109,110,111,112,113,114,115,116,117,118,119,120, &
     121,122,123,124,125,126,127,128,129,130,131,132, &
     133,134,135,136,137,138,139,140,141,142,143,144, &
     145,146,147,148,149,150,151,152,153,154,155,156 /)

  INTEGER, DIMENSION(1) :: MONITOR
  CHARACTER(LEN=15), DIMENSION(1) :: SMASS
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_0 = (/ &
     '             O --> O3                                                                               ', &
     '        O + O3 --> O2                                                                               ', &
     '        O + NO --> NO2                                                                              ', &
     '       O + NO2 --> NO                                                                               ', &
     '       O + NO2 --> NO3                                                                              ', &
     '           O1D --> O                                                                                ', &
     '       NO + O3 --> NO2                                                                              ', &
     '      O3 + NO2 --> NO3                                                                              ', &
     '          2 NO --> 2 NO2                                                                            ', &
     '      NO3 + NO --> 2 NO2                                                                            ', &
     '     NO3 + NO2 --> NO + NO2                                                                         ', &
     '     NO3 + NO2 --> N2O5                                                                             ', &
     '           O1D --> 2 OH                                                                             ', &
     '       O3 + OH --> HO2                                                                              ', &
     '       H2 + OH --> HO2                                                                              ', &
     '     H2O2 + OH --> HO2                                                                              ', &
     '      O3 + HO2 --> OH                                                                               ', &
     '      OH + HO2 --> O2                                                                               ', &
     '         2 HO2 --> H2O2                                                                             ', &
     '       NO + OH --> HNO2                                                                             ', &
     '      NO2 + OH --> HNO3                                                                             ', &
     '      NO3 + OH --> NO2 + HO2                                                                        ', &
     '      NO + HO2 --> NO2 + OH                                                                         ', &
     '     NO2 + HO2 --> HNO4                                                                             ', &
     '     HNO4 + OH --> NO2                                                                              ', &
     '     NO3 + HO2 --> NO2 + OH                                                                         ', &
     '     HNO2 + OH --> NO2                                                                              ', &
     '     HNO3 + OH --> NO3                                                                              ', &
     '            O3 --> O1D                                                                              ', &
     '            O3 --> O                                                                                ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_1 = (/ &
     '          H2O2 --> 2 OH                                                                             ', &
     '           NO2 --> O + NO                                                                           ', &
     '           NO3 --> NO                                                                               ', &
     '           NO3 --> O + NO2                                                                          ', &
     '          HNO2 --> NO + OH                                                                          ', &
     '          HNO3 --> NO2 + OH                                                                         ', &
     '         2 NO3 --> 2 NO2 + O2                                                                       ', &
     '          N2O5 --> NO3 + NO2 + O2                                                                   ', &
     '          HNO4 --> 0.05 NO3 + 0.95 NO2 + 0.05 OH + 0.95 HO2                                         ', &
     '          N2O5 --> NO3 + NO2                                                                        ', &
     '          HNO4 --> NO2 + HO2                                                                        ', &
     '      CH4 + OH --> MO2 + H2O                                                                        ', &
     '      NO + MO2 --> CH2O + NO2 + HO2                                                                 ', &
     '     MO2 + HO2 --> MP + O2                                                                          ', &
     '         2 MO2 --> MOH + CH2O + O2                                                                  ', &
     '         2 MO2 --> 2 CH2O + 2 HO2                                                                   ', &
     '     NO2 + MO2 --> MPN                                                                              ', &
     '           MPN --> NO2 + MO2                                                                        ', &
     '       MP + OH --> MO2 + H2O                                                                        ', &
     '       MP + OH --> CH2O + OH + H2O                                                                  ', &
     '     CH2O + OH --> PCH2O + CO + HO2 + H2O                                                           ', &
     '    CH2O + NO3 --> HNO3 + CO + HO2                                                                  ', &
     '      MOH + OH --> CH2O + HO2                                                                       ', &
     '       CO + OH --> CO2 + HO2                                                                        ', &
     '            MP --> CH2O + OH + HO2                                                                  ', &
     '          CH2O --> PCH2O + CO + 2 HO2                                                               ', &
     '          CH2O --> PCH2O + H2 + CO                                                                  ', &
     '           MPN --> CH2O + NO3 + HO2                                                                 ', &
     '           MPN --> NO2 + MO2 + O2                                                                   ', &
     '     CH4m + OH --> MO2m + H2O                                                                       ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_2 = (/ &
     '     MO2m + NO --> CH2Om + NO2 + HO2                                                                ', &
     '    MO2m + HO2 --> MPm + O2                                                                         ', &
     '        2 MO2m --> MOHm + CH2Om + O2                                                                ', &
     '        2 MO2m --> 2 CH2Om + 2 HO2                                                                  ', &
     '    MO2m + MO2 --> 0.5 MOHm + 0.5 CH2Om + 0.5 MOH + 0.5 CH2O                                        ', &
     '    MO2m + MO2 --> CH2Om + CH2O + 2 HO2                                                             ', &
     '    MO2m + NO2 --> MPNm                                                                             ', &
     '          MPNm --> MO2m + NO2                                                                       ', &
     '      MPm + OH --> MO2m + H2O                                                                       ', &
     '      MPm + OH --> CH2Om + OH + H2O                                                                 ', &
     '    CH2Om + OH --> COm + HO2 + H2O                                                                  ', &
     '   CH2Om + NO3 --> COm + HNO3 + HO2                                                                 ', &
     '     MOHm + OH --> CH2Om + HO2                                                                      ', &
     '      COm + OH --> CO2 + HO2                                                                        ', &
     '           MPm --> CH2Om + OH + HO2                                                                 ', &
     '         CH2Om --> COm + 2 HO2                                                                      ', &
     '         CH2Om --> COm + H2                                                                         ', &
     '          MPNm --> CH2Om + NO3 + HO2                                                                ', &
     '          MPNm --> MO2m + NO2 + O2                                                                  ', &
     '     BENZ + OH --> LBENZ + 0.252 PGLYX + BRO2 + 0.252 GLYX + 1.92 CH2O ... etc.                     ', &
     '     TOLU + OH --> LTOLU + 0.26 PGLYX + 0.215 PMGLY + TRO2 + 0.26 GLYX ... etc.                     ', &
     '     XYLE + OH --> LXYLE + 0.268 PGLYX + 0.463 PMGLY + XRO2 + 0.268 GLYX ... etc.                   ', &
     '    XYLE + NO3 --> CO2                                                                              ', &
     '    BRO2 + HO2 --> LBRO2H + R4P                                                                     ', &
     '     BRO2 + NO --> LBRO2N + NO2 + RCHO                                                              ', &
     '    TRO2 + HO2 --> LTRO2H + R4P                                                                     ', &
     '     TRO2 + NO --> LTRO2N + NO2 + RCHO                                                              ', &
     '    XRO2 + HO2 --> LXRO2H + R4P                                                                     ', &
     '     XRO2 + NO --> LXRO2N + NO2 + RCHO                                                              ', &
     '    ATOOH + OH --> ATO2 + H2O                                                                       ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_3 = (/ &
     '    ATOOH + OH --> PMGLY + MGLY + OH + H2O                                                          ', &
     '    HCOOH + OH --> CO2 + PHCOOH + HO2 + H2O                                                         ', &
     '     ALD2 + OH --> 0.05 CH2O + 0.05 CO + 0.05 HO2 + 0.95 MCO3 + H2O                                 ', &
     '    ALD2 + NO3 --> HNO3 + MCO3                                                                      ', &
     '    NO2 + MCO3 --> PAN                                                                              ', &
     '           PAN --> NO2 + MCO3                                                                       ', &
     '     NO + MCO3 --> CO2 + NO2 + MO2                                                                  ', &
     '     C2H6 + OH --> ETO2 + H2O                                                                       ', &
     '     ETO2 + NO --> ALD2 + NO2 + HO2                                                                 ', &
     '     C3H8 + OH --> B3O2                                                                             ', &
     '     C3H8 + OH --> A3O2                                                                             ', &
     '     A3O2 + NO --> NO2 + RCHO + HO2                                                                 ', &
     '      PO2 + NO --> CH2O + ALD2 + NO2 + HO2                                                          ', &
     '     ALK4 + OH --> R4O2                                                                             ', &
     '     R4O2 + NO --> 0.32 ACET + 0.05 A3O2 + 0.18 B3O2 + 0.32 ETO2 + 0.32 ALD2 ... etc.               ', &
     '     R4O2 + NO --> R4N2                                                                             ', &
     '     R4N1 + NO --> 0.57 CH2O + 0.86 ALD2 + 2 NO2 + 0.57 RCHO                                        ', &
     '     ATO2 + NO --> CH2O + NO2 + MCO3                                                                ', &
     '      KO2 + NO --> 0.93 ALD2 + 0.07 R4N2 + 0.93 NO2 + 0.93 MCO3                                     ', &
     '     RIO2 + NO --> 0.03 DIBOO + 0.081 ISOPNB + 0.009 ISOPND + 0.82 CH2O ... etc.                    ', &
     '          RIO2 --> 0.5 HPALD + 0.5 DHPCARP                                                          ', &
     '     VRO2 + NO --> 0.12 MVKN + 0.53 GLYC + 0.35 CH2O + 0.35 MGLY + 0.88 NO2 ... etc.                ', &
     '     MRO2 + NO --> 0.15 MACRN + 0.122 CH2O + 0.122 MGLY + 0.728 HAC + 0.728 CO ... etc.             ', &
     '          MRO2 --> HAC + CO + OH                                                                    ', &
     '     MAN2 + NO --> 0.5 PROPNN + 0.5 CH2O + 0.5 MGLY + 0.5 CO + 1.5 NO2 ... etc.                     ', &
     '     B3O2 + NO --> ACET + NO2 + HO2                                                                 ', &
     '     INO2 + NO --> 0.07 CH2O + 0.7 ISN1 + 0.23 HC5 + 0.035 MACR + 0.035 MVK ... etc.                ', &
     '    INO2 + NO3 --> 0.07 CH2O + 0.7 ISN1 + 0.23 HC5 + 0.035 MACR + 0.035 MVK ... etc.                ', &
     '    ISN1 + NO3 --> 0.6 HNO3 + 0.4 ISNOOB + 0.6 ISNOOA                                               ', &
     '  ISNOOA + NO3 --> 0.04 ISN1OG + 0.96 PROPNN + CO + NO2 + HO2                                       ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_4 = (/ &
     '   ISNOOA + NO --> 0.04 ISN1OG + 0.96 PROPNN + CO + NO2 + HO2                                       ', &
     '  ISNOOA + NO2 --> 0.04 ISN1OG + 0.96 IPMN                                                          ', &
     '  ISNOOA + HO2 --> 0.04 ISN1OG + 0.25 RCOOH + 0.75 RP + 0.25 O3 + 0.96 NO2 ... etc.                 ', &
     '  ISNOOB + NO3 --> 0.04 ISN1OG + GLYX + 0.94 PROPNN + 2 NO2                                         ', &
     '   ISNOOB + NO --> 0.04 ISN1OG + 0.94 GLYX + 0.9 PROPNN + 1.88 NO2                                  ', &
     '  ISNOOB + HO2 --> 0.04 ISN1OG + 0.96 INPN                                                          ', &
     '  ISNOOB + MO2 --> 0.04 ISN1OG + 0.25 MOH + 0.7 GLYX + 0.66 PROPNN + 0.75 CH2O ... etc.             ', &
     '     ISN1 + O3 --> 0.25 MOH + 0.7 GLYX + 0.3 PROPNN + 0.75 CH2O + 0.7 NO2 ... etc.                  ', &
     '     ISN1 + OH --> 0.655 ISNOHOO + 0.345 ISNOOA                                                     ', &
     '  ISNOHOO + NO --> 0.04 ISN1OG + 0.919 GLYX + 0.894 PROPNN + 0.934 HO2 ... etc.                     ', &
     ' ISNOHOO + HO2 --> 0.04 ISN1OG + 0.96 INPN                                                          ', &
     ' ISNOHOO + MO2 --> 0.04 ISN1OG + 0.25 MOH + 0.7 GLYX + 0.66 PROPNN + 0.75 CH2O ... etc.             ', &
     '        2 INO2 --> 0.5 ISOPND + 0.07 CH2O + 1.2 ISN1 + 0.23 HC5 + 0.035 MACR ... etc.               ', &
     '     PRN1 + NO --> CH2O + ALD2 + 2 NO2                                                              ', &
     '    ALK4 + NO3 --> HNO3 + R4O2                                                                      ', &
     '     R4N2 + OH --> R4N1 + H2O                                                                       ', &
     '     ACTA + OH --> CO2 + PACTA + MO2 + H2O                                                          ', &
     '     OH + RCHO --> RCO3 + H2O                                                                       ', &
     '    RCO3 + NO2 --> PPN                                                                              ', &
     '           PPN --> RCO3 + NO2                                                                       ', &
     '   IMAO3 + NO2 --> IPMN                                                                             ', &
     '   NMAO3 + NO2 --> NPMN                                                                             ', &
     '          IPMN --> IMAO3 + NO2                                                                      ', &
     '          NPMN --> NMAO3 + NO2                                                                      ', &
     '     RCO3 + NO --> ETO2 + NO2                                                                       ', &
     '    NMAO3 + NO --> CO2 + 0.5 CH2O + 0.5 CO + NO2 + 0.5 MO2 + 0.5 MCO3                               ', &
     '    NO3 + RCHO --> HNO3 + RCO3                                                                      ', &
     '     ACET + OH --> ATO2 + H2O                                                                       ', &
     '    A3O2 + MO2 --> 0.25 ROH + 0.25 MOH + 0.75 CH2O + 0.75 RCHO + HO2                                ', &
     '     PO2 + MO2 --> 0.25 ROH + 0.25 MOH + 1.25 CH2O + 0.5 ALD2 + 0.16 HAC ... etc.                   ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_5 = (/ &
     '    R4O2 + HO2 --> R4P                                                                              ', &
     '    R4N1 + HO2 --> R4N2                                                                             ', &
     '    ATO2 + HO2 --> 0.85 ATOOH + 0.15 CH2O + 0.15 OH + 0.15 MCO3                                     ', &
     '     KO2 + HO2 --> 0.85 ATOOH + 0.15 ALD2 + 0.15 OH + 0.15 MCO3                                     ', &
     '    RIO2 + HO2 --> 0.272 RIPB + 0.628 RIPA + 0.037 RIPD + 0.063 CH2O + 0.025 MACR ... etc.          ', &
     '    VRO2 + HO2 --> 0.1 VRP + 0.578 GLYC + 0.102 CH2O + 0.102 MGLY + 0.187 MEK ... etc.              ', &
     '    MRO2 + HO2 --> MRP                                                                              ', &
     '    MAN2 + HO2 --> 0.85 MAOP + 0.075 PROPNN + 0.075 CH2O + 0.075 MGLY + 0.075 CO ... etc.           ', &
     '    B3O2 + HO2 --> RB3P                                                                             ', &
     '    INO2 + HO2 --> INPN                                                                             ', &
     '    PRN1 + HO2 --> PRPN                                                                             ', &
     '      MEK + OH --> KO2 + H2O                                                                        ', &
     '    ETO2 + MO2 --> 0.25 EOH + 0.25 MOH + 0.75 CH2O + 0.75 ALD2 + HO2                                ', &
     '     MEK + NO3 --> HNO3 + KO2                                                                       ', &
     '    R4O2 + MO2 --> 0.16 ACET + 0.25 ROH + 0.03 A3O2 + 0.25 MOH + 0.09 B3O2 ... etc.                 ', &
     '    R4N1 + MO2 --> 0.25 ROH + 0.25 MOH + 0.95 CH2O + 0.38 ALD2 + 0.15 R4O2 ... etc.                 ', &
     '    ATO2 + MO2 --> 0.5 PMGLY + 0.5 MOH + 0.5 CH2O + 0.5 MGLY + 0.2 HAC ... etc.                     ', &
     '     KO2 + MO2 --> 0.25 ROH + 0.25 MOH + 0.75 CH2O + 0.5 ALD2 + 0.25 MEK ... etc.                   ', &
     '    RIO2 + MO2 --> 0.24 ROH + 0.24 MOH + 1.22 CH2O + 0.3 HC5 + 0.18 MACR ... etc.                   ', &
     '        2 RIO2 --> 0.09 DIBOO + 0.75 CH2O + 1.11 HC5 + 0.29 MACR + 0.45 MVK ... etc.                ', &
     '   HC5OO + MO2 --> 0.09 H2 + 0.25 ROH + 0.25 MOH + 0.13 GLYC + 0.95 CH2O ... etc.                   ', &
     '    VRO2 + MO2 --> 0.25 ROH + 0.25 MOH + 0.36 GLYC + 0.89 CH2O + 0.14 MGLY ... etc.                 ', &
     '    MRO2 + MO2 --> 0.15 ROH + 1.255 CH2O + 0.255 MGLY + 0.595 HAC + 0.595 CO ... etc.               ', &
     '    MAN2 + MO2 --> 0.375 PROPNN + 0.625 CH2O + 0.375 MGLY + 0.25 R4N2 + 0.375 CO ... etc.           ', &
     '    B3O2 + MO2 --> 0.75 ACET + 0.25 ROH + 0.25 MOH + 0.75 CH2O + HO2                                ', &
     '    INO2 + MO2 --> 0.25 MOH + 0.25 ISOPND + 0.785 CH2O + 0.6 ISN1 + 0.115 HC5 ... etc.              ', &
     '    PRN1 + MO2 --> 0.25 ROH + 0.25 MOH + 1.25 CH2O + 0.5 ALD2 + NO2 + 0.25 RCHO ... etc.            ', &
     '      EOH + OH --> ALD2 + HO2                                                                       ', &
     '      ROH + OH --> RCHO + HO2                                                                       ', &
     '        2 ETO2 --> 2 ALD2 + 2 HO2                                                                   ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_6 = (/ &
     '        2 ETO2 --> EOH + ALD2                                                                       ', &
     '    ETO2 + HO2 --> ETP                                                                              ', &
     '    A3O2 + HO2 --> RA3P                                                                             ', &
     '     PO2 + HO2 --> PP                                                                               ', &
     '    HO2 + MCO3 --> 0.41 MAP + 0.15 ACTA + 0.15 O3 + 0.44 OH + 0.44 MO2 ... etc.                     ', &
     '    RCO3 + HO2 --> 0.15 RCOOH + 0.41 RP + 0.44 ETO2 + 0.15 O3 + 0.44 OH ... etc.                    ', &
     '   NMAO3 + HO2 --> 0.41 MAOP + 0.59 CH2O + 0.39 CO + 0.15 O3 + 0.44 OH ... etc.                     ', &
     '     PRPE + OH --> PO2                                                                              ', &
     '     PRPE + O3 --> 0.1 CH4 + 0.12 CH3CHOO + 0.12 CH2OO + 0.5 CH2O + 0.5 ALD2 ... etc.               ', &
     '     NPMN + OH --> HAC + CO + NO2                                                                   ', &
     '     IPMN + OH --> 0.781 IMAE + 0.19 PAN + 0.19 CH2O + 0.03 HAC + 0.81 NO3 ... etc.                 ', &
     '     NPMN + O3 --> CH2O + NO3 + MCO3                                                                ', &
     '     IMAE + OH --> OH                                                                               ', &
     '     GLYC + OH --> 0.361 CO2 + 0.134 PGLYX + 0.134 HCOOH + 0.134 GLYX + 0.732 CH2O ... etc.         ', &
     '     GLYC + OH --> HCOOH + CO + OH                                                                  ', &
     '    PRPE + NO3 --> PRN1                                                                             ', &
     '     GLYX + OH --> 2 CO + HO2                                                                       ', &
     '     MGLY + OH --> CO + MCO3                                                                        ', &
     '    GLYX + NO3 --> HNO3 + 2 CO + HO2                                                                ', &
     '    MGLY + NO3 --> HNO3 + CO + MCO3                                                                 ', &
     '     ISOP + OH --> LISOPOH + RIO2                                                                   ', &
     '      MVK + OH --> VRO2                                                                             ', &
     '     MACR + OH --> 0.53 IMAO3 + 0.47 MRO2                                                           ', &
     '      HAC + OH --> PMGLY + MGLY + HO2                                                               ', &
     '      HAC + OH --> 0.5 CO2 + 0.5 HCOOH + 0.5 ACTA + 0.5 CO + OH + 0.5 MO2 ... etc.                  ', &
     '   A3O2 + MCO3 --> RCHO + MO2 + HO2                                                                 ', &
     '    PO2 + MCO3 --> CH2O + ALD2 + MO2 + HO2                                                          ', &
     '   A3O2 + MCO3 --> ACTA + RCHO                                                                      ', &
     '    PO2 + MCO3 --> ACTA + 0.65 HAC + 0.35 RCHO                                                      ', &
     '     ISOP + O3 --> 0.044 MVKOO + 0.044 MACROO + 0.11 CH2OO + 0.102 PRPE ... etc.                    ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_7 = (/ &
     '      MVK + O3 --> 0.12 MGLOO + 0.12 CH2OO + 0.6 CH2O + 0.1 ALD2 + 0.5 MGLY ... etc.                ', &
     '     MACR + O3 --> 0.022 MGLYOO + 0.326 CH2OO + 0.12 CH2O + 0.88 MGLY + 0.625 CO ... etc.           ', &
     '    ISOP + NO3 --> LISOPNO3 + INO2                                                                  ', &
     '    MACR + NO3 --> MAN2                                                                             ', &
     '    MACR + NO3 --> 0.5 IMAO3 + 0.5 MAOP + 0.5 HNO3 + 0.5 MRO2 + 0.5 CO ... etc.                     ', &
     '    RCO3 + MO2 --> ETO2 + CH2O + HO2                                                                ', &
     '   NMAO3 + MO2 --> 2 CH2O + HO2 + MCO3                                                              ', &
     '    RCO3 + MO2 --> RCOOH + CH2O                                                                     ', &
     '   NMAO3 + MO2 --> RCOOH + CH2O                                                                     ', &
     '     INPN + OH --> MEK + NO2 + OH                                                                   ', &
     '     INPN + OH --> 0.36 INO2 + 0.64 R4N2 + 0.64 OH                                                  ', &
     '     PRPN + OH --> 0.209 PRN1 + 0.791 PROPNN + 0.791 OH                                             ', &
     '      ETP + OH --> 0.36 ETO2 + 0.64 ALD2 + 0.64 OH                                                  ', &
     '     RA3P + OH --> 0.36 A3O2 + 0.64 OH + 0.64 RCHO                                                  ', &
     '     RB3P + OH --> 0.791 ACET + 0.209 B3O2 + 0.791 OH                                               ', &
     '      R4P + OH --> 0.209 R4O2 + 0.791 OH + 0.791 RCHO                                               ', &
     '       RP + OH --> RCO3                                                                             ', &
     '       PP + OH --> 0.209 PO2 + 0.791 HAC + 0.791 OH                                                 ', &
     '     RIPA + OH --> 0.007 LVOC + 0.243 HC5 + 0.75 RIO2 + 0.125 OH + 0.125 H2O ... etc.               ', &
     '     RIPB + OH --> 0.007 LVOC + 0.513 HC5 + 0.48 RIO2 + 0.26 OH + 0.26 H2O ... etc.                 ', &
     '     RIPD + OH --> 0.007 LVOC + 0.743 HC5 + 0.25 RIO2 + 0.375 OH + 0.375 H2O ... etc.               ', &
     '     RIPA + OH --> 0.007 LVOC + 0.578 IEPOXA + 0.272 IEPOXB + 0.143 HC5OO ... etc.                  ', &
     '     RIPB + OH --> 0.68 IEPOXA + 0.32 IEPOXB + OH                                                   ', &
     '     RIPD + OH --> 0.007 LVOC + 0.5 IEPOXD + 0.493 HC5OO + 0.5 OH                                   ', &
     '     LVOC + OH --> OH                                                                               ', &
     '   IEPOXA + OH --> IEPOXOO                                                                          ', &
     '   IEPOXB + OH --> IEPOXOO                                                                          ', &
     '   IEPOXD + OH --> IEPOXOO                                                                          ', &
     ' IEPOXOO + HO2 --> 1.172 CO2 + 0.44 HC187 + 0.278 HCOOH + 0.085 GLYX + 0.025 GLYC ... etc.          ', &
     '  IEPOXOO + NO --> 0.858 CO2 + 0.473 HC187 + 0.142 HCOOH + 0.088 GLYX + 0.088 GLYC ... etc.         ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_8 = (/ &
     '      IAP + OH --> 0.654 DHMOB + 0.346 HC5OO + 0.654 OH                                             ', &
     '      VRP + OH --> 0.209 VRO2 + 0.791 MEK + 0.791 OH                                                ', &
     '      MRP + OH --> MRO2                                                                             ', &
     '      MRP + OH --> CO2 + HAC + OH                                                                   ', &
     '     MAOP + OH --> NMAO3                                                                            ', &
     '     MAOP + OH --> MAOPO2                                                                           ', &
     ' MAOPO2 + MCO3 --> 2 CO2 + HAC + OH + MO2                                                           ', &
     ' MAOPO2 + MCO3 --> ACTA + MEK                                                                       ', &
     '  MAOPO2 + MO2 --> 0.7 CO2 + 0.3 ROH + CH2O + 0.7 HAC + 0.7 OH + 0.7 HO2 ... etc.                   ', &
     '      2 MAOPO2 --> 2 CO2 + 2 HAC + 2 OH                                                             ', &
     '  MAOPO2 + HO2 --> CO2 + HAC + 2 OH                                                                 ', &
     '   MAOPO2 + NO --> CO2 + HAC + NO2 + OH                                                             ', &
     '   MAOPO2 + NO --> HNO3                                                                             ', &
     '      MAP + OH --> MCO3                                                                             ', &
     '    C2H6 + NO3 --> HNO3 + ETO2                                                                      ', &
     '      HC5 + O3 --> 0.055 GAOO + 0.055 MGLYOO + 0.5 GLYC + 0.445 CH2O + 0.5 MGLY ... etc.            ', &
     '        2 MCO3 --> 2 MO2                                                                            ', &
     '    MO2 + MCO3 --> CH2O + MO2 + HO2                                                                 ', &
     '    MO2 + MCO3 --> ACTA + CH2O                                                                      ', &
     '   R4O2 + MCO3 --> 0.32 ACET + 0.05 A3O2 + 0.18 B3O2 + 0.32 ETO2 + 0.32 ALD2 ... etc.               ', &
     '   ATO2 + MCO3 --> CH2O + MO2 + MCO3                                                                ', &
     '    KO2 + MCO3 --> ALD2 + MO2 + MCO3                                                                ', &
     '   RIO2 + MCO3 --> CO2 + 0.113 DIBOO + 0.747 CH2O + 0.14 HC5 + 0.294 MACR ... etc.                  ', &
     '  HC5OO + MCO3 --> 0.17 MOBA + 0.29 DHMOB + 0.216 GLYX + 0.234 GLYC + 0.234 MGLY ... etc.           ', &
     '   VRO2 + MCO3 --> 0.6 GLYC + 0.4 CH2O + 0.4 MGLY + MO2 + 0.4 HO2 + 0.6 MCO3 ... etc.               ', &
     '   MRO2 + MCO3 --> 0.143 CH2O + 0.143 MGLY + 0.857 HAC + 0.857 CO + MO2 ... etc.                    ', &
     '   B3O2 + MCO3 --> ACET + MO2 + HO2                                                                 ', &
     '   R4N1 + MCO3 --> 0.39 CH2O + 0.75 ALD2 + 0.3 R4O2 + NO2 + 0.57 RCHO + MO2 ... etc.                ', &
     '   MAN2 + MCO3 --> CO2 + 0.5 PROPNN + 0.5 CH2O + 0.5 MGLY + 0.5 CO + 0.5 NO2 ... etc.               ', &
     '   INO2 + MCO3 --> 0.07 CH2O + 0.7 ISN1 + 0.23 HC5 + 0.035 MACR + 0.035 MVK ... etc.                ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_9 = (/ &
     '   PRN1 + MCO3 --> CH2O + ALD2 + NO2 + MO2                                                          ', &
     '   R4O2 + MCO3 --> ACTA + MEK                                                                       ', &
     '   ATO2 + MCO3 --> PMGLY + ACTA + MGLY                                                              ', &
     '    KO2 + MCO3 --> ACTA + MEK                                                                       ', &
     '   RIO2 + MCO3 --> ACTA + MEK                                                                       ', &
     '  HC5OO + MCO3 --> ACTA + MEK                                                                       ', &
     '   VRO2 + MCO3 --> ACTA + MEK                                                                       ', &
     '   MRO2 + MCO3 --> ACTA + MEK                                                                       ', &
     '   R4N1 + MCO3 --> ACTA + NO2 + RCHO                                                                ', &
     '   MAN2 + MCO3 --> ACTA + NO2 + RCHO                                                                ', &
     '   INO2 + MCO3 --> ACTA + NO2 + RCHO                                                                ', &
     '   PRN1 + MCO3 --> ACTA + NO2 + RCHO                                                                ', &
     '   B3O2 + MCO3 --> ACET + ACTA                                                                      ', &
     '   ETO2 + MCO3 --> ALD2 + MO2 + HO2                                                                 ', &
     '   ETO2 + MCO3 --> ACTA + ALD2                                                                      ', &
     '   RCO3 + MCO3 --> ETO2 + MO2                                                                       ', &
     '  NMAO3 + MCO3 --> CH2O + MO2 + MCO3                                                                ', &
     '   ISOPNB + O3 --> 0.36 CO2 + 0.16 HCOOH + 0.41 HNO3 + 0.21 MVKN + 0.32 MACRN ... etc.              ', &
     '   ISOPND + O3 --> 0.63 CO2 + 0.09 EOH + 0.26 ETHLN + 0.3 HNO3 + 0.24 MOH ... etc.                  ', &
     '      HC5 + OH --> HC5OO                                                                            ', &
     '    HC5OO + NO --> 0.17 MOBA + 0.29 DHMOB + 0.216 GLYX + 0.234 GLYC + 0.234 MGLY ... etc.           ', &
     '    HC5OO + NO --> HNO3                                                                             ', &
     '   HC5OO + HO2 --> 0.1 IAP + 0.9 GLYC + 0.9 MGLY + 0.9 OH + 0.9 HO2                                 ', &
     '   ISOPND + OH --> 0.1 IEPOXD + 0.9 ISOPNDO2 + 0.1 NO2                                              ', &
     '   ISOPNB + OH --> 0.067 IEPOXA + 0.033 IEPOXB + 0.9 ISOPNBO2 + 0.1 NO2 ... etc.                    ', &
     ' ISOPNDO2 + NO --> 0.27 DHDN + 0.057 HCOOH + 0.21 ETHLN + 0.075 MVKN + 0.057 ISOPNDO2 ... etc.      ', &
     'ISOPNDO2 + HO2 --> 0.5 ISNP + 0.2 ETHLN + 0.06 MVKN + 0.01 MACRN + 0.23 PROPNN ... etc.             ', &
     ' ISOPNBO2 + NO --> 0.21 DHDN + 0.26 MVKN + 0.44 MACRN + 0.09 GLYC + 0.7 CH2O ... etc.               ', &
     'ISOPNBO2 + HO2 --> 0.51 ISNP + 0.16 MVKN + 0.28 MACRN + 0.06 GLYC + 0.44 CH2O ... etc.              ', &
     '     ISNP + OH --> 0.193 ISOPNDO2 + 0.193 ISOPNBO2 + 0.612 R4N1 + 0.612 OH ... etc.                 ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_10 = (/ &
     '     MVKN + OH --> 0.35 PYAC + 0.65 HCOOH + 0.35 CH2O + 0.65 MGLY + NO3 ... etc.                    ', &
     '    MACRN + OH --> MACRNO2                                                                          ', &
     '  MACRNO2 + NO --> 0.93 CO2 + 0.07 HCOOH + 0.08 ACTA + 0.08 CH2O + 0.07 MGLY ... etc.               ', &
     ' MACRNO2 + HO2 --> 0.93 CO2 + 0.07 HCOOH + 0.08 ACTA + 0.08 CH2O + 0.07 MGLY ... etc.               ', &
     ' MACRNO2 + NO2 --> PMNN                                                                             ', &
     '          PMNN --> MACRNO2 + NO2                                                                    ', &
     '    DHMOB + OH --> 0.5 HAC + 0.5 MEK + 1.5 CO + HO2                                                 ', &
     '    DIBOO + NO --> 0.48 GLYX + 0.52 GLYC + 0.52 MGLY + 0.48 HAC + NO2 + HO2 ... etc.                ', &
     '    DIBOO + NO --> HNO3                                                                             ', &
     '   DIBOO + HO2 --> 0.85 R4P + 0.072 GLYX + 0.078 GLYC + 0.078 MGLY + 0.072 HAC ... etc.             ', &
     '     MOBA + OH --> MOBAOO                                                                           ', &
     '   MOBAOO + NO --> CO2 + NO2 + RCHO + HO2                                                           ', &
     '   MOBAOO + NO --> HNO3                                                                             ', &
     '  MOBAOO + HO2 --> 0.5 CO2 + 0.5 R4P + 0.5 OH + 0.5 RCHO + 0.5 HO2                                  ', &
     '     MOBA + O3 --> CO2 + MEK + OH + HO2                                                             ', &
     '    ETHLN + OH --> CO2 + CH2O + NO2                                                                 ', &
     '   PROPNN + OH --> PMGLY + MGLY + NO2                                                               ', &
     '    CH2OO + CO --> CH2O                                                                             ', &
     '    CH2OO + NO --> CH2O + NO2                                                                       ', &
     '   CH2OO + NO2 --> CH2O + NO3                                                                       ', &
     '   CH2OO + H2O --> H2O2 + CH2O                                                                      ', &
     '   CH2OO + H2O --> HCOOH                                                                            ', &
     '   MACROO + CO --> MACR                                                                             ', &
     '   MACROO + NO --> MACR + NO2                                                                       ', &
     '  MACROO + NO2 --> MACR + NO3                                                                       ', &
     '  MACROO + H2O --> MRP                                                                              ', &
     '  MACROO + H2O --> H2O2 + MACR                                                                      ', &
     '    MVKOO + CO --> MVK                                                                              ', &
     '    MVKOO + NO --> MVK + NO2                                                                        ', &
     '   MVKOO + NO2 --> MVK + NO3                                                                        ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_11 = (/ &
     '   MVKOO + H2O --> H2O2 + MVK                                                                       ', &
     '   MGLYOO + CO --> MGLY                                                                             ', &
     '   MGLYOO + NO --> MGLY + NO2                                                                       ', &
     '  MGLYOO + NO2 --> MGLY + NO3                                                                       ', &
     '  MGLYOO + H2O --> H2O2 + MGLY                                                                      ', &
     '    MGLOO + CO --> MGLY                                                                             ', &
     '    MGLOO + NO --> MGLY + NO2                                                                       ', &
     '   MGLOO + NO2 --> MGLY + NO3                                                                       ', &
     '   MGLOO + H2O --> MO2 + MCO3                                                                       ', &
     '   MGLOO + H2O --> H2O2 + MGLY                                                                      ', &
     '  CH3CHOO + CO --> ALD2                                                                             ', &
     '  CH3CHOO + NO --> ALD2 + NO2                                                                       ', &
     ' CH3CHOO + NO2 --> ALD2 + NO3                                                                       ', &
     ' CH3CHOO + H2O --> H2O2 + ALD2                                                                      ', &
     ' CH3CHOO + H2O --> ACTA                                                                             ', &
     '     GAOO + CO --> GLYC                                                                             ', &
     '     GAOO + NO --> GLYC + NO2                                                                       ', &
     '    GAOO + NO2 --> GLYC + NO3                                                                       ', &
     '    GAOO + H2O --> H2O2 + GLYC                                                                      ', &
     '    GAOO + H2O --> HAC                                                                              ', &
     '    HC187 + OH --> CH2O + 0.5 MGLY + 0.5 CO + 0.5 HO2 + 0.5 MCO3                                    ', &
     '    HPALD + OH --> 0.085 CO2 + 0.365 HPC52O2 + 0.085 GLYX + 0.55 CH2O + 0.55 MGLY ... etc.          ', &
     '  DHPCARP + NO --> GLYX + MGLY + NO2 + OH                                                           ', &
     '  HPC52O2 + NO --> GLYX + MGLY + NO2 + OH                                                           ', &
     ' DHPCARP + HO2 --> RCOOH                                                                            ', &
     ' HPC52O2 + HO2 --> RCOOH                                                                            ', &
     '       DHPCARP --> RCOOH + CO + OH                                                                  ', &
     '       DHPCARP --> DHDC                                                                             ', &
     '          ALD2 --> 0.88 CO + 0.88 MO2 + HO2 + 0.12 MCO3                                             ', &
     '           PAN --> 0.3 NO3 + 0.7 NO2 + 0.3 MO2 + 0.7 MCO3                                           ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_12 = (/ &
     '          RCHO --> ETO2 + CO + HO2                                                                  ', &
     '          ACET --> MO2 + MCO3                                                                       ', &
     '          ACET --> CO + 2 MO2                                                                       ', &
     '           MEK --> 0.85 ETO2 + 0.15 RCO3 + 0.15 MO2 + 0.85 MCO3                                     ', &
     '          GLYC --> 0.1 MOH + 0.9 CH2O + CO + 0.07 OH + 1.73 HO2                                     ', &
     '          GLYX --> 2 CO + 2 HO2                                                                     ', &
     '          GLYX --> H2 + 2 CO                                                                        ', &
     '          GLYX --> CH2O + CO                                                                        ', &
     '          MGLY --> CO + HO2 + MCO3                                                                  ', &
     '           MVK --> PRPE + CO                                                                        ', &
     '           MVK --> CH2O + CO + HO2 + MCO3                                                           ', &
     '           MVK --> RCO3 + MO2                                                                       ', &
     '          MACR --> CH2O + CO + HO2 + MCO3                                                           ', &
     '           HAC --> CH2O + HO2 + MCO3                                                                ', &
     '          INPN --> NO2 + OH + RCHO + HO2                                                            ', &
     '          PRPN --> NO2 + OH + RCHO + HO2                                                            ', &
     '           ETP --> ALD2 + OH + HO2                                                                  ', &
     '          RA3P --> OH + RCHO + HO2                                                                  ', &
     '          RB3P --> ACET + OH + HO2                                                                  ', &
     '           R4P --> OH + RCHO + HO2                                                                  ', &
     '            PP --> CH2O + ALD2 + OH + HO2                                                           ', &
     '            RP --> ALD2 + OH + HO2                                                                  ', &
     '          RIPA --> 0.005 LVOC + 0.71 CH2O + 0.275 HC5 + 0.285 MACR + 0.425 MVK ... etc.             ', &
     '          RIPB --> 0.005 LVOC + 0.71 CH2O + 0.275 HC5 + 0.285 MACR + 0.425 MVK ... etc.             ', &
     '          RIPD --> 0.005 LVOC + 0.71 CH2O + 0.275 HC5 + 0.285 MACR + 0.425 MVK ... etc.             ', &
     '           IAP --> 0.19 H2 + 0.26 GLYC + 0.58 MGLY + 0.36 HAC + 0.67 CO ... etc.                    ', &
     '          ISNP --> NO2 + OH + RCHO + HO2                                                            ', &
     '           VRP --> 0.7 GLYC + 0.3 CH2O + 0.3 MGLY + OH + 0.3 HO2 + 0.7 MCO3 ... etc.                ', &
     '           MRP --> 0.5 CH2O + HAC + 0.5 CO + OH + HO2                                               ', &
     '          MAOP --> CH2O + OH + MCO3                                                                 ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(13) :: EQN_NAMES_13 = (/ &
     '          R4N2 --> 0.32 ACET + 0.05 A3O2 + 0.18 B3O2 + 0.32 ETO2 + 0.32 ALD2 ... etc.               ', &
     '           MAP --> OH + MO2                                                                         ', &
     '         MACRN --> 0.5 CH2O + MGLY + HAC + 0.5 CO + NO2 + HO2                                       ', &
     '          MVKN --> GLYC + NO2 + MCO3                                                                ', &
     '        ISOPNB --> HC5 + NO2 + HO2                                                                  ', &
     '        ISOPND --> HC5 + NO2 + HO2                                                                  ', &
     '        PROPNN --> CH2O + CO + NO2 + MO2                                                            ', &
     '         ATOOH --> CH2O + OH + MCO3                                                                 ', &
     '          IPMN --> 0.4 CO2 + 0.6 IMAO3 + 0.4 CH2O + 0.4 NO3 + 0.6 NO2 + 0.4 MCO3 ... etc.           ', &
     '         ETHLN --> CH2O + CO + NO2 + HO2                                                            ', &
     '          DHDC --> GLYX + MGLY + 2 OH                                                               ', &
     '         HPALD --> 0.11 GLYC + 0.5 MGLY + 0.39 HAC + 1.89 CO + 2 OH + 0.89 HO2 ... etc.             ', &
     '          ISN1 --> 0.25 GLYX + 0.5 GLYC + CH2O + 0.25 MGLY + 0.5 HAC + NO2 ... etc.                 ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(403) :: EQN_NAMES = (/&
    EQN_NAMES_0, EQN_NAMES_1, EQN_NAMES_2, EQN_NAMES_3, EQN_NAMES_4, &
    EQN_NAMES_5, EQN_NAMES_6, EQN_NAMES_7, EQN_NAMES_8, EQN_NAMES_9, &
    EQN_NAMES_10, EQN_NAMES_11, EQN_NAMES_12, EQN_NAMES_13 /)

! INLINED global variables

! End INLINED global variables


END MODULE aromatics_kpp_Monitor
